home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #26 (Nov 87) / Pascal Code Tester / CodeTester.R < prev    next >
Text File  |  1987-10-26  |  3KB  |  199 lines
  1.  
  2. * Code Tester.R resources
  3. * by Jeff Fox
  4. *
  5. Testor.RSRC
  6. ????????
  7.  
  8. Type COTE = STR 
  9.   ,0        ;;0 by convention
  10. J. E. (JEFF) Fox    Ver. 1.1  8 Feb. 1987 \A9 J.E.Fox .
  11.  
  12. Type BNDL
  13.   ,128
  14.   COTE  0
  15.   ICN# 1
  16.   0 128  1 129
  17.   FREF 2
  18.   0 128  1 129
  19.  
  20. Type FREF
  21.   ,128
  22.   APPL  0    ;; local id 0 for icon list
  23.   ,129 
  24.   TEXT 1    ;;Doc's File Type, Local id 1 for icon list 
  25.   
  26. * ------ Multifinder ---------
  27.  
  28. Type SIZE = GNRL
  29.     ,-1
  30. .I
  31. 16384    ;; $4000 = bit 14 set
  32. .L
  33. 223232    ;; 250K less 32K =220K (for 250K recomended)
  34. .L
  35. 172032    ;; 200K less 32K = 120K (for 200K minimum)
  36.  
  37. Type ICN# = GNRL
  38.   ,128 (4)  ;; The Appl. Icon
  39. .H
  40. FFFFFFFF C0000003 BFFFFFFD A0000005
  41. A0000005 A0000005 A0000005 A0000005
  42. A0000005 A3FC3FC5 A0402005 A0402005
  43. A0402005 A0402005 A0402005 A0402005
  44. A0403E05 A0402005 A0402005 A0402005
  45. A0402005 A0402005 A0402005 A0403F85
  46. A0000005 A0000005 A0000005 A0000005
  47. A0000005 BFFFFFFD C0000003 FFFFFFFF
  48. *
  49. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  50. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  51. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  52. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  53. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  54. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  55. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  56. FFFFFFFF FFFFFFFF FFFFFFFF FFFFFFFF
  57.  
  58.   ,129      ;; The Doc Icon
  59. .H
  60. 0FFFFC00 08000600 08000500 08000480
  61. 0FE00440 09000420 090007F0 091F0010
  62. 09100010 09100010 091C0010 09100010
  63. 08100010 08100010 081F0010 08000010
  64. 08007C10 08004010 08004010 08007010
  65. 08004010 08004010 08004010 08004010
  66. 08000010 08EEBDD0 08000010 08000390
  67. 09AE7010 08000010 08000010 0FFFFFF0
  68. *
  69. 0FFFFC00 0FFFFE00 0FFFFF00 0FFFFF80
  70. 0FFFFFC0 0FFFFFE0 0FFFFFF0 0FFFFFF0
  71. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  72. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  73. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  74. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  75. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  76. 0FFFFFF0 0FFFFFF0 0FFFFFF0 0FFFFFF0
  77.  
  78. *  ----------- MENUS -------------
  79.  
  80. Type MENU        
  81. * the apple menu
  82.   ,256
  83. \14
  84. About Code Tester...
  85. (-
  86.  
  87. Type MENU
  88. * the file menu
  89.   ,257
  90. File
  91.   Run the Test/R
  92.   (-
  93.   Quit/Q
  94.  
  95. * ----- Dialogs --------
  96. Type DLOG        ;; About Box
  97.     ,260 (4)        ;; Purgeable
  98. Mikey Likes it !!    ;; Title String
  99. 60 110 195 430        ;; H,V, Global
  100. Visible  NoGoAway 
  101. 3
  102. 0
  103. 270
  104.  
  105. * ------- Alerts -------
  106.  
  107. Type ALRT
  108.    ,261 (4)        ;; Note Alert #1 in List
  109.    100 100 200 400
  110.    271
  111.    F764
  112.    
  113. Type ALRT          
  114.    ,262          ;; Caution Alert #2 in List
  115.    100 100 200 400
  116.    272
  117.    F765
  118.  
  119. Type ALRT     
  120.    ,263          ;; Stop Alert #3 in List
  121.    100 100 200 400
  122.    273
  123.    F765
  124.  
  125. * ------ Dialog Items ---------
  126.  
  127. Type DITL
  128.     ,270  (4)        ;; AboutBox, Purgeable
  129. 1            ;; # of Items
  130.  
  131. *    1    Static Text Items MUST be DISABLED if a button is used
  132. *        Other wise mouse clicks will be reported for the Text item.
  133. StatText
  134. 2 2 170 410             ;; H,V, Local, Zero 'D' not 'OD'.
  135. Code Test Version 1.1\0D\0D++
  136. For Run Time tests of code\0D\0D++
  137. \A9 1987 by J. E. (Jeff) Fox, for Mactutor™\0D\0D++
  138.     All Rights Reserved
  139.  
  140. Type DITL
  141.     ,271  (4)        ;; Note Alert
  142. 2            ;; # of Items
  143.  
  144. *1
  145. BtnItem
  146. 12 175 32 270
  147. OK
  148.  
  149. *2
  150. Stat Disable
  151. 50 10 190 390
  152. ^0
  153.  
  154. Type DITL
  155.     ,272 (4)        ;; Caution Alert
  156. 3            ;; # of Items
  157.  
  158. *1
  159. BtnItem
  160. 12 175 32 280
  161. Okay with me
  162.  
  163. *2
  164. BtnItem
  165. 43 175 62 280
  166. Forget it
  167.  
  168. *3
  169. Stat Disable
  170. 50 10 190 390
  171. ^0
  172.  
  173. Type DITL
  174.   ,273  (4)        ;; Error, Stop Alert
  175. 2            ;; # of Items
  176.  
  177. *1
  178. BtnItem
  179. 12 175 32 295
  180. EXIT To Finder
  181.  
  182. *2
  183. Stat Disable
  184. 50 10 190 390
  185. ^0
  186.  
  187. *  ---- Strings -----------
  188.  
  189. Type STR 
  190.   ,300 (4)        ;; For the window, If needed
  191.    UnTitled
  192.   
  193.   ,301 (4)
  194.    Mikey Likes it 
  195.    
  196.   ,302 (4)
  197.    What the &%$$$?
  198.   
  199.